<%
' GetFDAttr(ByVal vsPathName As String) As Integer
' output: >=0 File/Dir attribute
' -1 Failure
' SetFDAttr(ByVal vsPathName As String, ByVal vnAttr As Integer) As Integer
' output: 1 Succeed
' -1 Failure
' Sample Operation:
' Toggle system bit of a file in virtual directory of "/".
'
'
'
' This file is provided as part of ASP Power Widgets Samples
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR
' PURPOSE.
' Copyright 1997-1998. All rights reserved.
' Dalun Software Inc. ASP Power Widgets
' http://www.dalun.com
' http://members.tripod.com/ActiveServerPage/
vbNormal = 0 'Normal
vbReadOnly = 1 'Read-only
vbHidden = 2 'Hidden
vbSystem = 4 'System
vbDirectory = 16 'Directory or folder
vbArchive = 32 'File has changed since last backup
sDirName = Server.MapPath("/")
response.write "File/Directory Attribute Demo.
"
Set oFDMgt = Server.CreateObject("ASPPW.FDMgt")
if oFDMgt.ReadDir(sDirName)= -1 then
response.write "Read Directory Action Failed.
"
response.write oFDMgt.GetLastErrDescription
else
Set oFilelist = ofdmgt.Files
if oFilelist.count =0 then
response.write "Demo cann't proceed since there is no file in " & sDirName & "."
else
set file=oFilelist.Item(1)
sAttr=""
nAttr=ofdmgt.GetFDAttr( sDirName & "\" & file.name) 'Demo !!!
if nAttr And vbReadOnly then
sAttr=sAttr & "R "
end if
if nAttr And vbHidden then
sAttr=sAttr & "H "
end if
if nAttr And vbSystem then
sAttr=sAttr & "S "
end if
if nAttr And vbArchive then
sAttr=sAttr & "A "
end if
if sAttr="" then
sAttr="----
"
end if
response.write "" & file.Name & " attribute is: " & sAttr & "
"
response.write "Now change its attribute bit of System
"
nAttr = nAttr xor vbSystem
iReturnCode=ofdmgt.SetFDAttr( sDirName & "\" & file.name, nAttr) 'Demo !!!
if iReturnCode = 1 then
response.write "Setting attribute succeeded.
"
sAttr=""
nAttr=ofdmgt.GetFDAttr( sDirName & "\" & file.name) 'Demo !!!
if nAttr And vbReadOnly then
sAttr=sAttr & "R "
end if
if nAttr And vbHidden then
sAttr=sAttr & "H "
end if
if nAttr And vbSystem then
sAttr=sAttr & "S "
end if
if nAttr And vbArchive then
sAttr=sAttr & "A "
end if
if sAttr="" then
sAttr="----
"
end if
response.write "" & file.Name & " attribute is: " & sAttr & "
"
else
response.write "Setting attribute failed. " & oFDMgt.GetLastErrDescription
end if
end if
Set oFilelist=nothing
end if
Set oFDMgt = Nothing
%>